home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / dlscr.zip / GEKXDL.T < prev    next >
Text File  |  1987-11-10  |  735b  |  23 lines
  1.     :: This Pro-YAM/ZCOMM script downloads a file after it is listed by
  2.     :: the GEnie browse or download menu choices with XMODEM (OverThruster).
  3.     ::    Enable this with:
  4.     :: set f3 "@set s5 xx; source %lib/gekxdl.t"
  5.     :: set f8 "@set s5 x; source %lib/gekxdl.t"
  6.     :: Then at the selection, F3 or F8 grabs the file.
  7.     :: Besure to try different values for the O parameter (OverThruster)
  8.     ::
  9.     if "!h^Number:" echo "Can't find Number"; return
  10.     ss y "(Name: )(.*)"
  11.     setc s0 "\L%z2"
  12.     if f%s0 echo "%s0 Exists: No Action taken."; return
  13.     echo "File name is %s0"
  14.     ss yf "(Bytes: )(.*)"
  15.     ss yf "(Bytes: )(.*)"
  16.     put "d\r"
  17.     pat 1 "receive file."
  18.     wait -f20
  19.     estimate %z2
  20.     pat
  21.     if %s5>1 rc -y "%s0"; return
  22.     ro -y "%s0";  return
  23.